Xbasic

OBJ Function

Syntax

as P = OBJ(C object_name)

Arguments

object_name

The "name" of the object, as in :customer:button1.

Description

OBJ() returns an pointer to the object specified by Object_Address.

Example

This script returns a pointer to the current form, then lists its child objects.

dim ptr as P
ptr = obj(a_form_current)
ui_msg_box("Child Objects of this Form", ptr.child_enum() )

The following script tests to see if a form called "customer" has been loaded. If not, it loads the form.

p = obj(":customer")
if (.not. is_object(p)) then
    :form.view("customer")
end if

See Also